===========================================================================
 BBS: The Abacus * HST/DS * Potterville MI
Date: 04-19-93 (09:17)             Number: 151
From: DAVID COLSTON                Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: UNSCRAMBLE 2/3                 Conf: (35) Quick Basi
---------------------------------------------------------------------------
FOR I = 1 TO 128
    MID$(BigFile.W, I, 1) = CHR$(ASC(MID$(BigFile.W, I, 1))_
    XOR DRnd%(B%()))
NEXT
IF BigFile.W <> LEFT$(Pass$, 128) THEN
    PRINT "Pass Phrase Was Not Good!"
    CLOSE
    END
END IF
CLS
LOCATE 1, 5
PRINT "Unhideit - File Descrambler - by Colston & Associates_
(c) 1993"
LOCATE 3, 15
PRINT File$; " Has"; MaxBytes - 128; " Bytes."
NewFile% = FREEFILE
OPEN NewFile$ FOR OUTPUT AS NewFile% LEN = 4048
FOR I = 2 TO Sections
    GET #File%, I, BigFile.W
    FOR J = 1 TO 128
          MID$(BigFile.W, J, 1) = CHR$(ASC(MID$(BigFile.W, J, 1))_
          XOR DRnd%(B%()))
    NEXT
    PRINT #NewFile%, BigFile.W;
    IF I MOD 4 = 1 THEN
          LOCATE 4, 14
          PRINT (I - 1) * 128; "Bytes Unscrambled."
    END IF
NEXT
CLOSE File%
OPEN File$ FOR RANDOM AS File% LEN = LEN(CharFile)
FOR I = (Sections * 128 + 1) TO MaxBytes
     GET #File%, I, CharFile.Char
     A$ = CHR$(ASC(CharFile.Char) XOR DRnd%(B%()))
     PRINT #NewFile%, A$;
NEXT
CLOSE
LOCATE 4, 14
PRINT MaxBytes - 128; "Bytes Unscrambled."
KILL File$
SHELL "REN " + NewFile$ + " " + File$
CLS
END


 * JABBER v1.1 * Colston & Associates, Inc. (501) 452-4948


--- WM v2.08/92-0178
 * Origin: Paradox of Arkansas 501-484-0944 (1:3822/1)
SEEN-BY: 1/211 11/2 4 13/13 101/1 108/89 109/25 110/69 114/5 123/19 124/1
SEEN-BY: 153/752 154/40 77 157/2 159/100 125 430 575 950 203/23 209/209
SEEN-BY: 280/1 390/1 396/1 15 397/2 2230/100 2440/5 3603/20